home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / thor12.zip / THOR.LHA / rexx / packevents.thor < prev    next >
Text File  |  1994-03-03  |  1KB  |  42 lines
  1. /*
  2. **  packevents.thor - will make a new event package to be uploaded to
  3. **                      BBS. If the BBS given do not support event 
  4. **                      packages (like .REP files for QWK), this function
  5. **                      will return without doing anything.
  6. **                      If events like ReplyMsg or EnterMsg are added to
  7. **                      a BBS with the ADDEVENT command, the use of this
  8. **                      command *must* be used to make sure the event 
  9. **                      package is updated with the new messages!
  10. **
  11. **    Will return 0 if the BBSNAME given was a correct name from the
  12. **    THOR database, and 10 if not.  NOTE: If the event packer should fail
  13. **    for some reason, a requester with a descriptive error message will
  14. **    come up on the THOR screen.  NO error code will be returned to the
  15. **    ARexx program if this should happen. The reason for this is that
  16. **    the user should be notified correctly what went wrong, which is not
  17. **    always possible from an ARexx program.
  18. **
  19. **    Template:
  20. **
  21. **    BBSNAME=BBS/A
  22. **
  23. */
  24.  
  25. options results
  26.  
  27. address "THOR.01"
  28.  
  29. THORTOFRONT
  30.  
  31. /* Let's get the BBS first */
  32.  
  33. REQUESTLIST BBSLIST
  34.  
  35. if(rc ~= 0) then exit
  36.  
  37. /* Pack the events on this BBS */
  38.  
  39. PACKEVENTS '"'result'"'
  40.  
  41. exit
  42.